home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
UTILITY
/
DIVERSEN
/
BCALC2
/
SIMEQ3.FML
< prev
next >
Wrap
Text File
|
1994-05-16
|
308b
|
3 lines
"Simultaneous equation solver: A1x+B1y+C1z = D1 , A2x+B2y+C2z = D2 , A3x+B3y+C3z = D3";x=0A1B1C1A2B2C2A3B3C3+(D1B2C3+B1C2D3+C1B3D2-C1B2D3-B1D2C3-D1B3C2)/(A1B2C3+B1C2A3+C1B3A2-C1B2A3-B1A2C3-A1B3C2):y=(A1D2C3+D1C2A3+C1D3A2-C1D2A3-D1A2C3-A1D3C2)/(A1B2C3+B1C2A3+C1B3A2-C1B2A3-B1A2C3-A1B3C2):z=(D1-A1x-B1y)/C1